home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / TUTORIAL / 0222.ZIP / INDEX.P < prev    next >
Text File  |  1982-02-28  |  279b  |  18 lines
  1. FUNCTION INDEX (VAR S: STRING; C: CHAR) : INTEGER; 
  2.  
  3. VAR 
  4.     I,
  5.     K,
  6.     J      : INTEGER;
  7. BEGIN
  8.   K := UPPER(S) ;
  9.   I := 1;
  10.   WHILE (S[I] <> C) AND (I < K) DO
  11.      I := I + 1 ;
  12.   IF (I = K )
  13.     THEN
  14.       INDEX := 0 ;
  15.   ELSE
  16.      INDEX := I ;
  17. END; {INDEX}
  18.